home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Winzipper
/
Winzipper_ISO.iso
/
nt4.0 server
/
NCPARAM.IN_
/
ncparam.inf
Wrap
INI File
|
1996-07-18
|
9KB
|
248 lines
[InitGlobals]
!STF_NCDETECT = "NO"
!STF_NCOPTION = ""
!STF_NCDETCARD = 0
!STF_NCDETINFO = {}
[Param_SetGlobals]
Read-syms InitGlobals
return
[Param_ControlDetection]
Set DtMode = $($0)
Debug-Output "NCPARAM.INF: calling "$(DtMode)" wrapper"
Set FLibraryErrCtl = 1
LibraryProcedure StartResult $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), $(DtMode)
Set FLibraryErrCtl = 0
Set StartStatus = *($(StartResult),1)
Debug-Output "NCPARAM.INF: "$(DtMode)" status was: "$(StartStatus)
Ifint $(StartStatus) == 0
Set ReturnStatus = STATUS_SUCCESSFUL
Else
Set ReturnStatus = STATUS_FAILED
Endif
Return $(ReturnStatus)
[Param_DetectCard]
Debug-Output "NCPARAM.INF: calling DTCARD wrapper"
Set FLibraryErrCtl = 1
LibraryProcedure DetectResult $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), DTCARD
Set FLibraryErrCtl = 0
Set Status = *($(DetectResult),1)
Debug-Output "NCPARAM.INF: DTCARD status was: "$(Status)
Ifint $(DetectStatus) == 0
Set DtOption = *($(DetectResult),2)
Set DtIndex = *($(DetectResult),3)
Debug-Output "NCPARAM.INF: card found is type "$(DtOption)", index "$(DtIndex)
Endif
Return $(DetectResult)
: $1: Parameter control list of the form:
[Param_BuildTypeLists]
Set Option = $($0)
Set OptList = $($1)
Set Result1 = {}
Set Result2 = {}
Set !STF_NC_PARAMS = {}
Set !STF_NC_PNAMES = {}
Set Status = STATUS_FAILED
Debug-Output "NCPARAM.INF: Querying parameters for netcard type: "$(Option)
Set FLibraryErrCtl = 1
LibraryProcedure NcpaResult $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), DTPARAMS, $(Option)
Set FLibraryErrCtl = 0
Set ErrorStatus = *($(NcpaResult),1)
Debug-Output "NCPARAM.INF: DTPARAMS status was: "$(ErrorStatus)
Ifint $(ErrorStatus) != 0
Goto PMTL_Return
Endif
Set DllList = *($(NcpaResult),2)
Debug-Output "NCPARAM.INF: DLL param type list is: "$(DllList)
Set NbrOptions = 0
Set NbrFound = 0
ForListDo $(OptList)
Set-add NbrOptions = $(NbrOptions),1
Set Found = 0
Set Plist = $($)
Set Pname = *($(Plist),1)
Set PlistVar = *($(Plist),2)
Set Pvar = *($(Plist),3)
Set Dentry = {}
ForListDo $(DllList)
Set Dlist = $($)
Set Dname = *($(Dlist),1)
Set Dvlist = *($(Dlist),4)
Ifstr(i) $(Dname) == $(Pname)
Set Found = 1
Set Dvalue = *($(Dvlist),1)
Set Dentry = $(Dlist)
Ifstr(i) $(PlistVar) != NONE
Set !p:$(PlistVar) = $(Dvlist)
Debug-Output "NCPARAM.INF: DLL param "$(Pname)" list var "$(PlistVar)" set"
Endif
Endif
EndForListDo
Set-add NbrFound = $(NbrFound),$(Found)
Ifint $(Found) == 1
Set Result1 = >($(Result1),$(Dentry))
Set Result2 = >($(Result2),{$(Pname),$(Pvar),$(Dvalue)})
Else
Debug-Output "NCPARAM.INF: parameter "$(Pname)" not in DLL for "$(Option)
Endif
EndForListDo
Ifint $(NbrOptions) == $(NbrFound)
Set Status = STATUS_SUCCESSFUL
Set !STF_NC_PARAMS = $(Result1)
Set !STF_NC_PNAMES = $(Result2)
Debug-Output "NCPARAM.INF: Netcard list STF_NC_PARAMS for "$(Option)" is: "$(Result1)
Debug-Output "NCPARAM.INF: Netcard list STF_NC_PNAMES for "$(Option)" is: "$(Result2)
Endif
PMTL_Return =+
Return $(Status)
[Param_SaveValues]
Set Plist = {}
ForListDo $(!STF_NC_PNAMES)
Set Pelem = $($)
Set Name = *($(Pelem),1)
Set Qvar = *($(Pelem),2)
Set Qvalue = *($(Pelem),3)
Ifstr(i) $(Qvar) != "NONE"
Set Qvalue = $(!p:$(Qvar))
Set Plist = >($(Plist),{$(Name),$(Qvar),$(Qvalue)})
Endif
EndForListDo
Return $(Plist)
[Param_DiffValues]
Set Plist = {}
ForListDo $($0)
Set Pelem = $($)
Set Name = *($(Pelem),1)
Set Qvar = *($(Pelem),2)
Set Qvalue = *($(Pelem),3)
Ifstr(i) $(Qvar) != "NONE"
Set QnewValue = $(!p:$(Qvar))
Ifint $(QnewValue) != $(Qvalue)
Debug-Output "NCPARAM.INF: Param_DiffValues: param "$(Name)" value has changed"
Set Plist = >($(Plist),{$(Name),$(Qvar),$(QnewValue)})
Endif
Endif
EndForListDo
Return $(Plist)
[Param_SetDefaults]
Set QueryList = $($0)
Debug-Output "NCPARAM.INF: Param_SetDefaults, QueryList = "$(QueryList)
ForListDo $(!STF_NC_PNAMES)
Set Pelem = $($)
Set Name = *($(Pelem),1)
Set Qvar = *($(Pelem),2)
Set Qvalue = *($(Pelem),3)
ForListDo $(QueryList)
Set Qname = *($($),1)
Ifstr(i) $(Qname) == $(Name)
Debug-Output "NCPARAM.INF: Param_SetDefaults: default override for param "$(Qname)
Set Qvalue = *($($),2)
Endif
EndForListDo
Ifstr(i) $(Qvar) != "NONE"
Debug-Output "NCPARAM.INF: Param_SetDefaults: setting "$(Qvar)" to "$(Qvalue)
Set !p:$(Qvar) = $(Qvalue)
Endif
EndForListDo
Return
[Param_QueryCard]
Set CardIndex = $($0)
Set Status = STATUS_SUCCESSFUL
Set ResultList = {}
Debug-Output "OEMNADDE.INF: Querying parameters for netcard "$(CardIndex)
Set FLibraryErrCtl = 1
LibraryProcedure NcpaResult $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), DTQUERY, $(CardIndex)
Set FLibraryErrCtl = 0
Set ErrorStatus = *($(NcpaResult),1)
Debug-Output "NCPARAM.INF: DTQUERY status was: "$(ErrorStatus)
Ifint $(ErrorStatus) != 0
Set Status = STATUS_FAILED
Else
Set ResultList = *($(NcpaResult),2)
Endif
Return $(Status) $(ResultList)
[Param_VerifyCard]
Set CardIndex = $($0)
Set Status = STATUS_FAILED
Set VerifyList = {}
ForListDo $(!STF_NC_PNAMES)
Set Pelem = $($)
Set Name = *($(Pelem),1)
Set Qvar = *($(Pelem),2)
Set Qvalue = $(!p:$(Qvar))
Ifstr(i) $(Qvalue) != ""
Debug-Output "NCPARAM.INF: VerifyCard: "$(Qvar)" = "$(Qvalue)
Set VerifyList = >($(VerifyList),{$(Name),$(Qvalue)})
Endif
EndForListDo
Debug-Output "NCPARAM.INF: Verifying parameters for netcard "$(CardIndex)
Debug-Output "NCPARAM.INF: Parameters are: "$(VerifyList)
Set FLibraryErrCtl = 1
LibraryProcedure NcpaResult $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), DTVERIFY, $(CardIndex), $(VerifyList)
Set FLibraryErrCtl = 0
Set ErrorStatus = *($(NcpaResult),1)
Debug-Output "NCPARAM.INF: DTVERIFY status was: "$(ErrorStatus)
ifstr(i) $(!STF_GUI_UNATTENDED) == "YES"
Set Status = STATUS_SUCCESSFUL
else
Ifint $(ErrorStatus) == 0
Set Status = STATUS_SUCCESSFUL
Endif
endif
Return $(Status)
[Param_VerifyResources]
Set DiffParamList = $($0)
Ifstr(i) $(DiffParamList) == {}
Set Status = STATUS_SUCCESSFUL
Goto PVR_Return
Endif
Set Status = STATUS_FAILED
Set VerifyList = {}
ForListDo $(DiffParamList)
Set Pelem = $($)
Set Name = *($(Pelem),1)
Set Qvar = *($(Pelem),2)
Set Qvalue = $(!p:$(Qvar))
Ifstr(i) $(Qvalue) != ""
Debug-Output "NCPARAM.INF: VerifyResources: "$(Qvar)" = "$(Qvalue)
Set VerifyList = >($(VerifyList),{$(Name),$(Qvalue)})
Endif
EndForListDo
Debug-Output "NCPARAM.INF: VerifyResources: Claiming changed resource parameter values"
Debug-Output "NCPARAM.INF: Parameters are: "$(VerifyList)
Set FLibraryErrCtl = 1
LibraryProcedure NcpaResult $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), DTCLAIM, $(VerifyList)
Set FLibraryErrCtl = 0
Set ErrorStatus = *($(NcpaResult),1)
Debug-Output "NCPARAM.INF: DTCLAIM status was: "$(ErrorStatus)
Ifint $(ErrorStatus) == 0
Set Status = STATUS_SUCCESSFUL
Endif
PVR_Return = +
Return $(Status)
[Param_ParameterConfidence]
Set LowestConf = 100
Set Status = STATUS_SUCCESSFUL
Set LowestParam = ""
ForListDo $(!STF_NC_PARAMS)
Set Ptype = *($($),2)
Set Pconf = *($($),3)
Ifint $(Ptype) < 2
Ifint $(Pconf) < $(LowestConf)
Set LowestConf = $(Pconf)
Set LowestParam = *($($),1)
Endif
Endif
EndForListDo
Ifint $(LowestConf) < 70
Set Status = STATUS_FAILED
Debug-Output "NCPARAM.INF: parameter "$(LowestParam)" cannot be adequately detected"
Endif
Return $(Status)
[HexListFromDecList]
Set HexList = {}
ForListDo $($0)
Set-DecToHex HexValue = $($)
Set HexList = >($(HexList),$(HexValue))
EndForListDo
Return $(HexList)